##install.packages("patchwork")
##install.packages("ggseg3d")
# install.packages("plotly")
# install.packages("ggsegExtra")
library(ggseg3d)
library(ggseg)
## Loading required package: ggplot2
library(ggplot2)
library(patchwork)
library(dplyr)
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
library(plotly)
##
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
##
## last_plot
## The following object is masked from 'package:stats':
##
## filter
## The following object is masked from 'package:graphics':
##
## layout
fig2A <- ggseg(position = "stacked") +
theme_dark() +
labs(title = "dk",
subtitle = "dark theme")
fig2B <- ggseg(view = "medial") + labs(title = "dk",
subtitle = "medial view")
fig2C <- ggseg(view = "medial", hemisphere = "left") +
labs(title = "dk",
subtitle = "medial left")
fig2D <- ggseg(position = "stacked") + theme_classic() +
labs(title = "dk",
subtitle = "classic theme")
fig2E <- ggseg(hemisphere = "left") + labs(title = "dk",
subtitle = "left hemisphere")
fig2F <- ggseg(atlas = aseg, view = "axial") +
labs(title = "aseg", subtitle = "axial view")
fig2F <- ggseg(atlas = aseg, view = "axial") +
labs(title = "aseg", subtitle = "axial view")
##using patchwork
(fig2A | fig2B | fig2C) / (fig2D | fig2E | fig2F) +
plot_annotation(tag_levels = 'a')
ggseg(mapping=aes(file=region),colour="black")+
scale_fill_brain("dk")+
theme(legend.justification = c(1,0),legend.position = "bottom",
legend.text = element_text(size=5))+
guides(fill=guide_legend(ncols=3))
## Warning: Ignoring unknown aesthetics: file
fig9 <- ggseg3d(atlas = aseg_3d, na.alpha = .5) %>%
add_glassbrain("left",colour = "#cecece",
opacity = 0.3) %>%
pan_camera("left lateral")
fig9